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MFSUM_REQUEST: Procedure Returns (Fixed Binary(31)) 
Options (Ident('v04-000')); 


EO-1964 07:28:00 WAKGT BLL Ae TOOTS cm oft ty 


/* Routine to execute multi-file summary req 
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/* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
/* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
/* ALL RIGHTS RESERVED. 


/* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
/* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
/* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
/* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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/* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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1 /«/ 
1 
_ /* 
; ¥ {eee 
‘ ; . FACILITY: MONITOR Utility 
tz H ; - ABSTRACT: MFSUM_REQUEST Routine. 
; & 
RR /* Called from MONMAIN routine to execute a single 
$ ‘ ! . MONITOR multi-file summary request. 
Bi /* 
9; 1 /* ENVIRONMENT: 
40; 1 /* 
¢ : : i Unprivileged user mode. 
: & 
és : ! oS AUTHOR: Thomas L. Cafarella, January, 1984 
; & 
45: 1 /* 
46 : ! . MODIFIED BY: 
; ® 
48: 1 /* v03-006 TLC1088 Thomas L. Cafarella 25-Jul-1984 14:00 
3 : ' A Free virtual memory obtained for multi-file summary. 
H e 
24 = /* v03-005 1LC1077 Thomas L. Cafarella 11-Jul-1984 14:00 
26 : ! c. Continue multi-file summary even if some input files are empty. 
: e 
34 & /* v03-004 TLC1071 Thomas - Cafarella 17-Apr-1984 14:00 
3 i 7 /* Add “‘number of input files’ to multi-file summary report. 


K 
MF SUM_REQUEST 1 ~sPp-1 4 02:18: VAX-11 P 
v04-006 8-8 E 1882 98:48:93 DISKSVMS brer’ "Fanduton. SRCIMF SUMM.PLI; rt i 4) 
; ¥ /* 
$ .: - /* v03-003 J C1069 ones be Cafarella 13-Apr-1984 14:00 
8 a /* x ACCVIO when i ti-file summary requested’ fer SYSTEM class 
Fe ' } . 4. f single-statistic. 
1:1 /* v03-002 PRS1021 aul R. Senn 12-Apr-1984 10:00 
¢ : . Make SYSTEM shees work with multi-file summary. 
64: 1 /s vO3~002 pRs1020 Paul R. Sen 12-Apr-1984 10:00 
6g ' : . Make XQP class werk with multi- file summary. 
| 4 /* v03-002 TLC1060 Thomas L. Cafarella 12-Mar-1984 11:00 
? ' ; A Make multi-file summary work for homogeneous classes. 
70} 4 /s v03-001 TLC1053 Thomas L. Cafarella 07-Mar-1984 11:00 
a! : . Add support to ignore unused files for multi-file summary. 
733 1 /t-- 
74; #1 /*/ 
75 1 
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-SEP-1 
7: #1 [eee 
1g . /* 
re ‘ ' ; FUNCTIONAL DESCRIPTION: 
80 ye MF SUM_REQUEST 
ia /* TBS 
. ¥ /* INPUTS: 
85; 1 /* 
Pious 
88 js IMPLICIT INPUTS: 
Bo } A Monitor Request Block (MRB), pointed to by MRBPTR. 
| * 
36 ‘ : . OUTPUTS: 
3¢ : An None 
; ra 
38 H } Ge IMPLICIT OUTPUTS: 
; ag 
38 1 a TBS 
100 /* ROUTINE VALUE: 
: e 
106 : ; A SSS$_NORMAL, or failing MONITOR status code. 
; a 
104; 1 /* SIDE EFFECTS: 
105; 1 /* 
106: 1 /* None 
107: 1 /* 
108 ; 1 /«/ 
109 1 
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-000 ests 7 98:18:19 TT EKSUMSHASTERSEMONTOR. SRCIMESUMM.PLICY dh 
139 :y /* 
1 1 ; 1 /* ' eo ee ee me © Sw ee oe ew ee om oe Seer ew BeBe eZee RB eB OE BDoBwenn mesa se ocowreoeweaaewran ez mr onan swore ea} 
11 i ie INCLUDE FILES 

3 i * ! L ! 
114; 1 /* ‘ ! 
1 1 5 ; 1 /* ! ene ves ere aecre asc Bw uwean a me om ee SS ee SS em mm ee ee em em ee ee ee ee eee Serer F es ee eee = + 
tes 
118 1 ZINCLUDE MONDEF ; /* Monitor i the structure definitions */ 
886 XINCLUDE SCHF DEF; /* Condition handler facility definitions */ 

1 ZINCLUDE selereal /* Status value definitions */ 

9 1 ZINCLUDE SYSSCANCEL; /* $CANCEL system service */ 
> : ZINCLUDE SYSSPUTMSG; /* $PUTMSG system service */ 
938 1 
939: 1 /* 
940 ; 1 /* ! ete ae eeeS eee ewes eew en eoceem enone e Serene e wee wee ee seeeeseoeaneonaonoenn Sener nemanawe oe + 
941; 1 /* ! ! 
ace . /* ' EXTERNAL STORAGE DEFINITIONS ! 
943; 1 /* ' ! 
944 ; 1 Ba = , ose ee ee ee So ee ee et ee Sop a a ee ee See Ge em eee te een eae = a ll a 2 
945 | 1 // 
946 1 
947 1 Declare 
948 MAX_CLASS_NO FIXED pert tt GLOBALREF VALUE, /* Maximum defined class number */ 
949 1 PROCS CLSNO FIXED BINARY(31) GLOBALREF VALUE, /* Class number for the PROCESSES class */ 
950 1 MAXELTS_MFS FIXED BINARY(31) GLOBALREF VALUE, /* Max no. of elements for a homogeneous class m.f. 
951 1 MAX_ELIBLEN FIXED BINARY(31) GLOBALREF VALUE, /* Max Length of an element id for a homogeneous cla 
326 1 MAX_HOM_ITEMS FIXED BINARY(31) GLOBALREF VALUE, /* Max no. of items for a homogeneous class */ 
95 1 MAX_INP_FILES FIXED pinAnY tal} GLOBALREF VALUE, /* Max no. of input files for multi-file summary */ 
328 : ECOONT_SYS_ALL FIXED BIWARY(31) GLOBALREF VALUE; /* Element count for SYS/ALL */ 
956 1 Declare 
957 1 CDBPTR POINTER GLOBALREF, /* Pointer to CDB (Class Descriptor Block) */ 
958 1 C POINTER DEF INED(CDBPTR), /* Synonym for CDBPTR */ 
959 1 MCAPTR POINTER GLOBALREF /* Pointer to MCA (Monitor Communication Area) */ 
m0 0 MC POINTER DEF INED(MCAPTR), /* Synonym for MCAPTR */ 
61 1 MRBPTR POINTER GLOBALREF /* Pointer to MRB (Monitor Request Block) */ 
308 ! M POINTER DEF INED(MRBPTR); /* Synonym for MRBPTR */ 
964 1 Declare 
965 } bh POINTER GLOBALREF; /* Pointer to input file header */ 
3¢8 1 Declare 
94 : INPUT_FILE FILE RECORD INPUT; /* Monitor Input (Playback) File */ 
390 1 Declare 
971 1 CTRLCZ_CHAN FIXED BINARY(31) GLOBALREF, /* Channel number for CTRL-C and CTRL-Z */ 
44 1 CTRLCZ_HIT BIT(1) aL LeNee GLOBALREF, /* YES => CTRL-C or CTRL-Z has been hit */ 
3h : NORMAL FIXED BINARY(31) GLOBALREF; /* MONITOR normal return status */ 
975 1 Declare 
306 1 1 wot: GLOBAL REF. /* Table of CDB's */ 
are ! CDOBLOCK (0:127) CHAR(CDBSK_SIZE); 
979 1 
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980; 1 /* 1 
9 1 } 1 /* ' SST eae es Pe wee Be we eS eS oe eS POSS SOS SO SO OS SS OF OSS SS SSS SSS SSS SSSSSSSSSSSSSSSSSESSZOCOOSS | 
g i a /* i ' 1 
98 : | - EXTERNAL ROUTINE DEFINITIONS | 
H ® . . 
2 5 ; : /* ' SSE TO BBB eee ee ww Nw eS BM ee SO Se Se ee wectue se T2222 ee Seeee ea oeoanoanoaneao weeoaereeawaaen + 
: /*/ 
389 1 1 
988 1 Declare 
989 1 EXECUTE REQUEST ENTRY RETURNS(FIXED BINARY(31)), /* MONITOR routine to execute a MONITOR request */ 1 
990 1 ESTAB_CTRLCZ ENTRY RETURNS(FIXED BINARY(31)), /* MONITOR MACRO=32 routine to set up CTRL=-C and CTR 
991 1 INPUT_INIT TRY RETURNS(FIXED BINARY(31)), /* MONITOR routine to do initialization on input fil 1 
338 1 INPUT CLEANUP ENTRY RETURNS(FIXED BINARY(31)), /* MONITOR routine to do cleanup on input file */ 
99 1 SUMMARY_INIT ENTRY RETURNS(FIXED BINARY(31)), /* MONITOR MACRO-32 routine to do summary init */ ' 
994 1 SUMMARY CLEANUP ENTRY RETURNS(FIXED BINARY(31)) /* MONITOR routine to do shoome on summary file */ 1 
995 1 NTRY (ANY VALUE, ANY, ANY) OPTIONS (VARIABLE), /* MONITOR MACRO-32 routine to log synchronous error 
996 1 SIGNAL_MON_ERR ENTRY, /* MONITOR MACRO=32 routine to signal MONITOR errors | 
997 1 LINK. ERR ENTRY (ANY VALUE, ANY VALUE) /* MONITOR MACRO=32 routine to Link a MONITOR error 1 
998 1 QUAD-LT_GUAD ENTRY (BIT(64) ALIGNED, BIT(64) ALIGNED) /* MONITOR MACRO-32 unsigned quadword compare routin | 
999 1 RETURNS(BIT(1)); , 
1000 1 
1001 1 
1002 1 } 
1003 : 1 /* 
1004 ; 1 /t leeeeecoeeeececen seeeceoeeeooeaneeen ee ee ee ee es + 
1005 } 1 /* ‘ ! 1 
1006 : 1 /* ! MESSAGE DEFINITIONS ! } 
1007 : 1 /* } : 
1008 ; 1 / e ' (ee ae ee oe oe we ee oe a es we oe en nraoscemoes eee acaeneceaaae a a en a oe See none naenrwownwans + 1 
1009} 1 /*/ | 
1010 1 1 
1011 1 Declare 1 
O18 1 MNR$_NOCLASS FIXED Binr ial} GLOBALREF VALUE, 1 
101 1 MNR$_CLASDISAB FIXED BINARY(31) GLOBALREF VALUE 
1014 1 -NOCOMMSTLEV FIXED BINARY(31) GLOBALREF VALUE, 
1015 1 MNR$_PREMEOF FIXED BINARY(31) GLOBALREF VALUE, 
1916 1 MNRS_INVINPFIL FIXED BINARY(31) GLOBALREF VALUE, 
101 1 MNR$_NOCLASSES FIXED BINARY(31) GLOBALREF E, 
1018 1 MNRS$_NOINPFILES FIXED BINARY(31) GLOBALREF VALUE, 
1019 1 MNR$_IGNFIL FIXED BINARY(31) GLOBALREF VALUE, 
1020 1 MRRS$_NOSUMM FIXED BINARY(31) GLOBALREF VALUE, 
1092 : MNR$_DISPERR FIXED BINARY(31) GLOBALREF VALUE; 
10 1 
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met 98:48:13 SP EKSUNSHAS TER: FRONTOR. SRCIMESUMM.PLTST (8) 
1024: 1 /* } 
1006 | 1 /* i ' i 
1057 § 4 /* i GLOBAL STORAGE DEFINITIONS i 1 
1028 } 1 /* i i ! 
10 9 { 1 /* ' ee ee Sm eC Of eS © @ ee ae Se eee Se Se oe me ee we Oe © @ © ee @ © & & = & ww = 2. see Sw Se Sw oe oS ow oe ee eo ee em om om me ee ee @4+ 1 
1030: 1 /*/ : 
19 : i Decl 1 
eclare . 
10 g 1 MFSPTR POINTER GLOBALDEF, /* Pointer to Multi-File Summary Block (MFS) */ : 
ED BS pale tebe el fs ESE ege CSF Bete ats) , 
1036 2 CSB_POINTER (1:MAX_INP_FILES) POINTER; /* (SB pointers */ } 
1038: 1 /* , 
1039 H 1 /t ' 7 eS eS © wwe eee ee i sae eR BO Be Bene wre ee wre ene era nmraeaanaeaa ee eae = em me ee ee ee 4+ 1 
1040: 1 /* i ' } 
1041} 1 ye i COMPILE-TIME CONSTANTS i : 
104¢ i 4 /* i i , 
104 ] 1 /* leeeee san won es Ces enene wore e woe scot aan oe ene ae wena awae nana wer erenznnrnawreo ew aaewn oman an + 1 
ae je 
1066 REPLACE NOT_SUCCESSFUL BY '0'B; /* Failing status bit */ : 
loch} EREPLACE NO. BY 'O°B: Se bee Eoraral tae ae 1 
> ener u 
1049 ZREPLACE AND_OP BY '000i'B; /* AND Beoleca operation */ } 
1920 : ZREPLACE oR_OP BY '0111'B; /* OR Boolean operation */ 1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ib-s 
“§ 


palobe SS08s1> — PiecbinchaSren® Phontoe. srcomesunn.pLse?* cop 


1052 : 1 /* 1 
1838 ; 1 /* le So oe a re om (Se ee em em om an ee ee ee ee ee me Sm RE me Ee a ee ee me me Se me eo mw eEemwowe em = see eae ee ea ee awomoe + 1 
1054; 1 /* ! ' 1 
1055} 1 /* i OWN STORAGE i 1 
1056} 1 /* ' i 1 
1057 ; 1 /* ' eS Se oe oe eS om ee we ee ee ee ee ee ee Se ee om me ae em 22 eS! Sow SB em we se eereon ee reeren = ee ee awa mam en + | 1 
1058 : 1 /*/ 1 
1059 1 1 
1060 1 Declare 1 
1061 1 CALL FIXED BINARY(31), /* Holds function value (return status) of called ro 1 
1986 : STATUS BIT(1) BASED(ADDR(CALL)); /* Low-order status bit for called routines */ } 
106421 Declare 1 
10651 IFBPTR POINTER, /* Pointer to Input File Block (IFB) */ 1 
10661 CSBPTR POINTER, /* Pointer to Column Summary Block (CSB) */ } 
ed : 0CDB POINTER STATIC; /* CDB for current class */ } 
1069 1 Declare 1 
10701 1FB_TAB_PTR POINTER /* Pointer to IFB_TABLE */ 1 
10711 1 IFB TABLE BASED(IFB_TAB_PTR), /* Input File Block (IFB) Table */ 1 
1078 2 AR_IFB (1:MAX_INP_FICES) “CHAR(IFBSK_SIZE); /* A single IFB */ : 
107% 1 Declare 1 
1075 1 01 CURR_CLASS_DESCR (MAX_CLASS_NO+1), /* Current Class Descriptor */ : 
1076 : 1 /* This array of structures includes a CCD (Current ; 
1077: #1 /* Class Descriptor) for each possible class. */ 1 
1078 1 02 CURR_CDBPTR POINTER /* CDBPTR for current class */ 

1 : O02 CURR_CLASS_NO FIXED BINARY(7); /* Class number for current class */ 1 
1081 1 are 

Ie 1 1 BUFFERS BASED (MF SS$A_STATSBUF ) /* Statistics buffers */ 

108 1 TOT :MAXELTS_MFS) FIXED BINARY(31), /* TOTAL statistics buffer */ 

1084 1 MIN (1:MAXELTS_MFS) FIXED fp EE /* MINIMUM statistics buffer */ 

Hs ; 2 MAX (1:MAXELTS_MFS) FIXED BINARY(31); /* MAXIMUM statistics buffer */ 

1087 i Declare 

1088 1 I FIXED BINARY(15), /* Loop control */ 

1089 1 J FIXED BINARY(15), /* Loop control */ 

1090 1 NON_EMPTY_FILES FIXED BINAR\(15), /* Count of non-empty input files */ 

1091 1 ST_LEV_C chants? /* Common file structure level */ 

1938 1 FICE CCASSES BIT(1285 ALIGNED /* Class bit string from current input file */ 

109 1 ALL_FILE CLASSES BIT(128) ALIGNED, /* Class bit string which is union (OR) of all input 

1094 1 CURR_NODENAME  CHAR(16), /* Nodename from current input file */ 

1095 1 FOUND _NODE BIT(1) ALIGNE /* YES => a matching node was found in a CSB */ 

1096 1 CURR_ERRCODE FIXED BINARY( 1), /* MONITOR error status code currently expected */ 

1097 1 MF_REQ STATUS FIXED BINARY(31), /* MFSUM_REQUEST status code */ 

1998 ! ALREADY_FAILED ®BIT(1) ALIGNED; /* YES =5 a failure has already been signaled */ 
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ON FINISH; /* On finish, do nothing */ 
ALPEADY FAILED = NO; /* Indicate no failure yet signaled */ 
CURR_ERRCODE = 0; /* Set expected MONITOR code to default */ 
H /* 
H /* Set up condition handler to terminate the MONITOR request on: 
: /* 1) any asynchronous error condition, such as file and 1/0 errors; 
‘ es 2) any synchronous MONITOR-detected condition. 
ON ANYCONDITION /* On any condition signaled, */ 
BEGIN; 
Declare 
MNRS$_ERRINPF IL FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
MNRS$_ERRRECFIL FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
MNR$_UNEXPERR FIXED BINARY(31) GLOBALREF VALUE, /* Error message code */ 
FIXED BINARY(31), /* Monitor message code */ 
a FIXED BINARY(31), /* fenporery scratch area */ 
MNRS$_FACNO FIXED i 1) GLOBALREF VALUE, /* MONITOR facility number */ 
ON_FILE CHAR(100) VARYING /* Holds possible file name string */ 
SIGNALED_ERR ENTRY (ANY VALUE, ANY VALUE, ANY VALUE, ANY); /* Rtn to set up PUTMSGVEC */ 


IF tee /* If a failure not already signaled, */ 
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ALREADY _FAILED = YES; /* Indicate a failure has been signaled */ 
CHFSARGPTR = ONARGSLIST(); /* Get signal array pointer */ 
STSSVALUE = CHFSSIG_NAME; /* Get code for signaled condition */ 
UNSPEC(TEMP) = STSS$FAC_NO; /* Convert facility no. to binary in TEMP */ 
IF TEMP = MNR$_FACNO /* If a MONITOR code, */ 
THEN MON_CODE = STSSVALUE; /* then remember it */ 
ELSE DO; /* Otherwise, need to set the MON_CODE */ 
ON_FILE = ONFILE(); /* Get PL/I file constant if 1/0 cond */ 
IF"ON FILE = ‘INPUT_FILE* /« If input file error, */ 
REN MON_CODE ="MNRS_ERRINPFIL; /* Set Monitor status code accordingly */ 
ELSE IF CURR_ERRCODE™= /* Else, see if an error is currently expected */ 
THEN MON_CODE = MNRS_UNEXPERR; /* No, set ‘‘unexpected’’ code */ 
ELSE MON_CODE = CURR_ERRCODE; /* Yes, set currently expected code */ 2 
CURR_ERRCODE = 0; /* Reset to default MONITOR error code (‘unexpected 
i eat SIGNALED_ERR(MON_CODE , STSSVALUE .DIM(CHFS$SIG_ARG,1),CHF$S1G_ARG); /* Log the error */ 
4 e 
4 MF_REQ STATUS = MON_CODE; /* Set up code for MONITOR request termination */ 
: cACL MF_REQ_CLEANUPT) ; /* Perform cleanup for files, memory, etc. */ 
4 | 
2 GO TO MF_REQ_EXIT; /* Go return from MFSUM_REQUEST (PL/I does an UNWIND 
rs END; /* End of ON-condition routine */ 
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1150 1 MC=>MCASV_EOF = NO; /* End-of-file not hit yet */ 1 
i 1 ON ENDFILECINPUT_FILE) MC->MCASV_EOF = YES; /* Set up EOF condition */ : 
1188 1 CALL = MFSUM_INIT(); /* Perform init for this m.f. summary request */ 1 
HF : IF STATUS = ROT_SUCCESSFUL THEN CALL SIGNAL _MON_ERR(); /* Signal error if failure */ } 
1156: 1 /* 1 
1187 3: 1 /* Establish CTRL-C and CTRL-Z handlers for terminating the MONITOR request. 1 
1128 : ae CTRL=C causes a MONITOR> prompt. CTRL-Z returns to DCL. : 
114601 1 
1161 1 CALL = ESTAB_CTRLCZ(); /* Establish CTRL-C and CTRL-Z handlers */ 1 
11e8 : 1 /* If error, do not terminate; simply ignore CTRL-C’ 1 
116 1 1 
1164: 1 /* 1 
1165 : 1 /* For each vapet file, open it, do some checking of structure level, and classes, 1 
1166 }| 1 /* and build the Column Summary Block (CSB) (if necessary) to represent the column 1 
1167 {| #1 /* required in the summary report. There will be one column per file, or, 1 
1168 | 1 /* by-node report was requested, one column per node. 1 
HR toa } 
1171 1 NON_EMPTY_FILES = 0; /* Init count of non-empty input files */ 1 
1178 1 DO T = 1 To M->MRBS$B_INP_FILES WHILE(CTRLCZ_HIT = NO); /* Loop once per input file */ 1 
1173: 2 /* ... as long as user has not terminated */ 1 
1174 2 IFBPTR = ADDR(AN_IFB(I1)); /* Establish current Input File Block */ 1 
1175 M->MRBSA_INPUT =~ IFBSA_INPUT; /* Establish current input file */ 1 
1176 MC->MCASV_EOF = NO; /* End-of-file not hit yet */ : 
1178 «2 CALL = INPUT_INIT(); /* Open input file and establish H as header record 1 
1179 2 IF STATUS = ROT SUCCESSFUL THEN /* If failed, */ 1 
1180 2 IF CALL “= MNR$_PREMEOF THEN CALL SIGNAL_MON_ERR(); /* then signal error for all but PREMEOF (empty fi 1 
1181 2 ELSE DO; /* but for PREMEOF, */ 1 
1182 3 1FB$B_COL_NO = 0; /* zero out column number, */ 1 
118 3 CALL CINK~MON_ERR(MNRS_IGNFIL,IFBSA_INPUT); /* ... and issue info msg */ 1 
1184 END; 1 
1185 2 1 
1186 ELSE /* If successful, */ 1 
1187 0; /* Beginning of successful do-group */ 1 
1188 NON_EMPTY FILES = NON_EMPTY_FILES + 1; /* Count this good file */ 1 
1189 F RON_EMPTY FILES = T /* If first file, * 1 
1190 THEN ST_CEV_COMM = H->MNR_HDRST_LEVEL; /* ... then establish common structure level */ 

131 ELSE IF ST ACEV COMM “= H-SMNR_HBRS$T_LEVEL /* ... otherwise, file level must match common */ 

1198 4 CALL MON_ERR(MNRS_NOCOMMSTLEV) ; /* ... if not, it’s an error */ 

1194 4 CALL SIGRAL_MON_ERR(); /* ... signal it */ 

1sg2 4 END; 

1197 IF MNR_HDRSK_CLASSBITS < MC->MCASL_INPUT_LEN /* If CLASSBITS field is defined for input file, */ 

1198 HEN FILE_CLASSES = H=->MNR_HDRSO_CLASSBITS: /* then get file classes from usual place */ 

1199 ELSE FILE_CLASSES = H->MNR_HDRSO_REV CLSBITS; /* else get them from gnother place */ 

1200 : /* NOTE -- MNR_HDRSO REY CLSBITS is used for compati 

130 : /* with MONSCO01 and MONBAOO] file struct le 

: 08 ALL_FILE_CLASSES = BOOL(ALL_FILE_CLASSES,FILE_CLASSES,OR_OP); /* Augment class string with class bits from this fi 

1508 CALL = GET_NODENAME(); /* Get node name from current file */ 


F 4 
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1306 H IF STATUS = NOT_SUCCESSFUL THEN CALL SIGNAL_MON_ERR(); /* Signal error if failure */ 
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/* 1 
js, Set up Column Summary Block (CSB) ; 
1 
IF _* M=>MRBSV_BY_NODE | NON_EMPTY_FILES = 1 /* If not by-node request, or first input file */ 1 
THEN CALL CREATE_NEW_CSB(J; /* then create a new CSB for a new column */ 1 
ELSE 00; /* else go look for a column with same node */ 1 
/* name as input file */ 1 
FOUND_NODE = NO; /* Indicate haven't found a matching node yet */ } 
DO J = 1 TO MFS$B_COLUMNS WHILE (FOUND_NODE = NO); /* Loop once esr CSB until found one */ 1 
CSBPTR = CSB POINTER(J); /* Get next CSB pointer */ 1 
IF CURR NODER E = CSBST_NODENAME /* If CSB node same as input file node, */ ! 
1FB$B_COL NO = J; .  /* Stash column no. in IFB for Later use */ 1 
FOUND NODE = YES; /* Indicate found a matching node */ : 
END; j 1 
IF FOUND _NODE = NO /* If no matching node found in all CSBs, */ 1 
a THEN” CALL CREATE_NEW_CSB(); /* then create a new one */ 
END; /* End of successful do-group */ 
/* 1 
oe Perform cleanup operations on this input file (close it and free buffer). : 
1 
IF M->MRBSV_INP_CL_REQ /* If cleanup required for this file, */ 1 
THEN CACL =~ INPUT_CLEANUP(); /* ... then do cleanup for it */ . 
END; : 
IF WON EMPTY FILES = 0 /* If all files are empty, */ } 
CALL MON_ERR(MNRS$_NOINPFILES); /* then log the error */ 1 
CALL SIGNAL_MON_ERR(); /* 4.2. and signal it */ } 
‘ 1 
/* 1 
ose Eliminate unnecessary classes and set up Current Class Descriptor Array } 
1 
IF CTRLCZ HIT = NO /* If request is still running, */ ! 
MFS$0_CLASSBITS = BOOL (ALL_FILE_CLASSES,MFSS$O_CLASSBITS,AND_OP); /* Eliminate poquested classes not in inpu 1 

IF MF S30_CLASSBITS = '0'B /* If no classes left to do, */ 

CALL MON_ERR(MNRS_NOCLASS); js then log error #/ 
cat SIGRAL_MON_ERR(); /* ... and signal it */ 


/* NOTE **#** steal code to print warning message if one or more classes missing from the host of input fil 


/* 
ae Establish Current Class Descriptor Array 
w 
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1560 : 

1265 CALL_= ESTAB_C /* Set up CCD */ 

1se8 IF STATUS = not > SuEcessFUL THEN CALL SIGNAL_MON_ERR(); /* Signal error if failure */ 
1368 5 END; 

1269 1 
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IF CTRLC 
THEN 


pd I = 1 
IFBPTR = 


IF IFB$B8_CO 
THEN 


END; 
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Main processing sore, for each input tits, call EXECUTE REQUEST 


to perform the MONI request for that file. After each request 

has terminated, the SUM buffer for each class will have been stored 

in the multi-file summary buffer. 

Then, when all input files have been processed, execute MF_SUMMARY_EVENT 
to transform the multi-file summary buffer into the summary report. 


Temporarily de-establish CTRL/C and CTRL/Z handlers, since they will be 
established during each call to EXECUTE_REQUEST. 
Z_HIT = NO & CTRLCZ_CHAN “= 0 /* If request is still running, */ 
CALL = SYSSCANCEL(CTRLCZ_CHAN) ; /* Cancel CTRL=C and CTRL-Z handlers */ 
nee = 0; /* ... and indicate their disestablishment */ 
TO M->MRBSB_INP_FILES WHILE(CTRLCZ_HIT = NO); /* Loop once for each input file */ 
/* ... aS tong as user has not killed request */ 
ADDR(AN_IFB(I1)); /* Get next IFB pointer */ 
_COL_NO *= 0 /* If this is a non-empty file, */ 
MFS$B8_CUR_COL = IFB$B_COL NO; /* Set up current column no. for use by EXEC 
M->MRBSA_INPUT = IFBSA_INPUT; /* Set up MRB to refer to current input file 
M->MRBSQ_BEGINNING = MFS$Q_BEGINNING; js Set up requested beginning time */ 
M->MRBS$Q_ENDING = MFS$Q_ENDING; /* Set up requested en ing time */ 
M->MRB$O_CLASSBITS = MFS$O_CLASSBITS; /* Start off each file with requested classe 
CALL = EXECUTE_REQUEST(); /* Execute MONITOR request for this input fi 
IF STATUS = NOT SUCCESSFUL /* If request failed, * 
THEN CALL LINK_RON_ERR(MNRS_IGNFIL,IFBSA_INPUT); /* Let user know we ignored a file */ 
ELSE DO; /* Request successful ... check begin and en 
CSBPTR = CSB_POINTER(IFB$B_COL_NO); /* Get CSB pointer for current column */ 
CSB$B_ FILES = CSB$B_FILES # 1; /* Count this file in this column */ 
IF_* M->MRBSV_BY_NODE } QUAD_LT_ QUAD(M->MRBS$Q_BEGINNING,CSB$Q_BEGINNING) /* If new beginning establish 
THEN CSB$Q_ BEGINNING = M->ARBSQ BEGINNING ; /* ... store it into CSB */ 


IF * M=>MRB$V_BY NODE | QUAD LT QUAD(CSBS$Q_ENDING,M->MRBSQ_ENDING) /* If new ending established, */ 
wut CSB$Q_ENDING = M->MRBSQ_ENDING ; /* ... store it into CSB */ 


END; 
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IF CTRLCZ_HIT = NO /* If user hasn't hit CTRL/C or /2, */ 1 

THEN CALL = ESTAB_CTRLCZ(); /* then re-establish CTRL-C and CTRL-Z handlers */ 1 

ye /* If error, do not terminate; simply ignore CTRL-C' } 

aed Summarize all accumulated data into a single report. | 

1 

IF CIRLCZ HIT = NO /* If user is still patient, */ ! 

CALL = MF _ SUMMARY _EVENT(); /* Output entire summary buffer for all classes */ ! 

ee = NOT_SOCCESSFUL THEN CALL SIGNAL_MON_ERR(); /* Signal error if failure */ 1 

' 1 

/* 1 

nf Perform cleanup operations for this M.F. Summary request ! 

1 

CALL MF_REQ_CLEANUP(); /* Execute various cleanup routines */ } 

/* 1 

/* Exit from MFSUM_REQUEST routine. | 

/* Note == we get fo this point either by falling through 1 

/* the above code (normal path), or by direct branch from 1 

‘ef the condition-handling routine (error path). } 
ye 

1 

MF_REQ_STATUS = NORMAL; /* Normal status if we get to this point */ } 

MF _REQ_EXIT: } 

RETURN(MF_REQ_STATUS); /* Return to MONMAIN with completion status */ : 
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i 29 1 MFSUM_INIT: Procedure Returns(Fixed Binary(31)); /* Initialization for M.F. Summary Request */ } 
1 5 Declare 1 
1 CLASSES B11 128) /* Temporary class bit string */ 1 
: 33 CLASSES_VEC ( 187) BIT(1) DEF INED(CLASSES); /* Bit-addressable alias */ } 
1356 TRLCZ_HIT = NO; /* Indicate CTRL=C and CTRL-Z not hit */ 1 
: 2f CTRLCZ_CHAN = 0; /* ... and no channel assigned for them */ 1 
} 2&6 CSBVEC_PTR = ADDR(CSBVEC); /* Stash address of CSB Vector for later use */ } 
1 1 ALLOCATE MFS; /* Allocate space for Multi-File Summary block */ ! 
\ ; MFSSB_COLUMNS = 0; /* Start out request with no columns */ ! 
! 5 ALL_FILE_CLASSES = ‘'0O'B; /* Start out request with no input file classes */ 1 
1 H /* 1 
1 : /* Save requested BEGINNING and ENDING times in the MFS so the 1 
1369 | /* can later be re-loaded to the MRB as EXECUTE_REQUEST is called 1 
1370 } /* for each input file. 1 
tra : /*/ 1 
1378 MFSS$Q_BEGINNING = M->MRBS$Q_ BEGINNING; /* Save pegrentag time */ 1 
13% MFSSQ_ENDING = M->MRBSQ_ENDING; /* Save ending time */ | 
1378 MFSSA_IFB_TAB = M->MRBSA_INPUT; /* Save pointer to IFB Table for Later use */ 1 
144 IFB_TAB_PTR = MFSS$A_IFB_TAB; /* Set up IFB Table */ : 
1399 : /* 1 
1380 : /* Obtain space for statistics buffers 1 
133) i 2 /*/ 1 
1383 $ ALLOCATE BUFFERS; /* Get the space and set up MFSSA_STATSBUF */ 1 
1aee 2 MFSSL_STATSBUF = 4 * 3 * MAXELTS_MFS; /* Compute and save its length (in bytes) */ ! 
1 : /* 1 
1387 ; /* Turn off class bits for classes not eligible for 1 
1388 ; /* multi-file summary. ' 
weg } 
1391 CLASSES = M->MRBSO_CLASSBITS; /* Get List of requested classes */ 1 
! 4 CLASSES_VEC(PROCS_CLSNO) = NO; /* Turn off PROCESSES class bit */ } 
' De MFSSO_CLASSBITS = CLASSES; /* Move updated class bit string to the MFS */ 
1 Ms IF WF SSO_CLASSBITS = '0'B /* If no classes left to do, */ 
1398 CALL MON_ERR(MNRS_NOCLASSES); /* then log error */ 1 
1728 RETURN CARRS MOCLASSES) ; /* ... and return with status */ 
1401 2 2 
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/* 

/* Check for /SUMMARY qualifier specified, and return 
/* error if not. Move summary file Spas ad from MRB to 
/* MFS, and explicitly clear the /SUMMARY, /DISPLAY 

oo, and /RECORD file spec ptrs from the MRB. 


IF M=>MRBSA_SUMMARY = NULL() 
THEN DO? 


CALL MON_ERR(MNR$_NOSUMM) ; 
RE TURN(HARS_NOSUNA) ; 


E 
ELSE 90; 
MF S$A_SUMMARY = M=>MRBSA_SUMMARY; 
M->MRBSA_SUMMARY = NULL(J; 
M->MRBSA_DISPLAY = NULL(): 
B>ARBSA_RECORD = NULL(); 


RETURN(NORMAL) ; 
END MFSUM_INIT; 


4 
IBSERT9BG ORSRBSIT MARGE PLL ABT a Pet IS, 


If no summary qualifier, */ 
then log the error */ 
eee and return with status */ 


Move /SUMMARY file ages pir to MFS */ 
Indicate no regular /SUMMARY */ 
Indicate no /DISPLAY */ 

Indicate no /RECORD */ 


Return */ 


—— 
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i} 3 CREATE _NEW_CSB: Procedure; /* Create a new Column Summary Block */ 
14 § MFSS$B_COLUMNS = tha COLUMNS + 1; /* Count a new column */ 

1° IFBSB-COL_NO = MFS$B_COLUMNS; /* ... and store its number in current IfB */ 
1429 ALLOCATE CSB; /* Get space for CSB */ 

14 CSB_POINTER(MFSSB_COLUMNS) = CSBPTR; /* Add its pointer to CSB vector */ 
1431 CSBST_NODENAME = CURR_NODENAME; /* Get nodename from current file */ 
14322 CSBSQ"BEGINNING = 'FFFFFFFFFFFFFFFF BG; /* Init to latest beginning time */ 
1433 2 CSBSQ_ENDING = ‘'0'B; /* ... and earliest ending time */ 

14 CSBSB_F = 0; /* Init no. of files in this column */ 
1° 5 CSBSV_IGNCRE = NO; /* Don't ignore this column */ 

1437 RETURN; /* Return */ 

1438 END CREATE_NEW_CSB; 
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1349 1 GET_NODENAME: Procedure Returns(Fixed Binary(31)); /* Get nodename from current input file */ 

1076 Declare 

144 READ_INPUT ENTRY (FIXED R NARY(31)) /* MONITOR routine to read an input AB‘ Tkbot "> file 
1008 NEXT_REC FIX NARY (31) BLOBALREF VALUE; /* Read next record indicator for READ_INPUT rtn */ 
re por Lore 

144 SY1_TYPE FIXED BINARY(15) GLOBALREF, /* Type for MONITOR recording file ore igte record * 
1448 TEMP TYPE BIT(8) ALIGNED, /* Temporary area for record type byte 

1692 SYIPTR POINTER; /* Pointer to sys info record */ 

1285 CALL READ. vy eOrN REC); /* Read system information record */ 

1428 IF re /* If end-of-file, */ 

1484 20 MON_ERR(MNR$_PREMEOF); /* Can't find sys info record; log the error */ 
1286 A (ANRS_PREMEOF ) ; /* ... and return to caller */ 

145 

1458 SYIPTR = MC=>MCASA pevi wpe /* Establish ptr to oye info record */ 

1459 TEMP_TYPE = UNSPECTSY /* Get x3 info type into a byte for compare */ 

re 6 IF ode al SYI$B_ i te TEMP_TYPE /* I s record is not the sys info rec, */ 

1468 CALL MON_ERR(MNRS$_INVINPFIL); /* Log an error */ 

146 RETURNS. INVINPFIL); /* ... and return to caller */ 

188 a; 

1466 $ IF MNR_SYISK gotten: < MC=->MCASL_INPUT_LEN /* If NODENAME field is defined for input file, */ 
1467 2 THEN CURR_NODENAME = SYIPTR=> >ANR SYT$T_NODENAME ; /* ... then pick it up from there */ 

1068 § else UNSPEC (CURR -NODENAME) = '0'6; /* Otherwise, steely clear it */ 

1470 2 RETURN(NORMAL) ; /* Return */ 

ian) ¢ END GET_NODENAME ; 
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ESTAB_CCD: Procedure Returns{Fixed Binary(31)); 


DO_CLASSES BIT 
DO-CLASSES_VEC (0:1 
CLASS_NO FIX 


moe 


P FINED(DO_CLASSES), 


/* Establish Current Class Descriptor array */ 


/* Classes to do */ 
/* Bit-addressable alias */ 
/* Class number */ 


/* Given MFS$O Spies execute do loop using INDEX builtin 


/* to fill in the CC 
/*/ 


DO_CLASSES = MFSSO_CLASSBITS; 

CLASS_NO = 0; 

DO I = 1 TO MAX_CLASS_NO + 1. WHILE(CLASS_NO >= 0); 
CLASS 4 WO ory DOR CLASSES. YES) - 1; 

= 


06; 

DO_CLASSES_V 

CURR_CLASS "3 
( 


CALL MON_ERR(MNR$_CLASDISAB); 
RETURN (MARS. CLASDISAB) ; 


END; . 
END; 
RETURN(NORMAL) ; 


END ESTAB_CCD; 


Current Class Descriptor) array. 


/* Get List of classes to do */ 

/* Initialize class number */ 

/* Loop once for each possible class */ 
/* Find next requested class number */ 
/* Only continue if a class was found */ 


/* Eliminate it from future consideration */ 
/* Store class_no in CCD table */ 

/* Keep track of class count */ 

/* ... and store it in CCD table */ 

/* Get CDB address'ty */ 

/* Make sure we get a new summary buffer */ 
/* If this class is disabled, */ 


/* Log the error */ 
/* ... and return */ 


/* Normal return */ 


<z 
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} i MF SUMMARY _EVENT: Procedure Returns(Fixed Binary(31)); /* Multi-File Summary Event */ 
1 8 H /* 
1520 | /t++ 
1521 { /* 
: § H Ae FUNCTIONAL DESCRIPTION: 
; ® 
; 2 : ae MF _SUMMARY_EVENT 
® 
1 § : /* Called by MFSUM_REQUEST once per request to create a 
1 H /* summary tile containing one or more screen images for 
} : fn each of the requested classes. 
H / 
15350 ; /* INPUTS: 
1531 | /* 
15 ¢ H /* None 
15335 ; * 
1534 | 
1535 | 
1536 | /* None 
1332 H § /* 
1538 ; /* ROUTINE VALUE: 
1539 | /* 
HF 94 ‘ . SS$_NORMAL, or failing MONITOR status code. 
1266 } /t-- 
15435 ! /«/ 
1544 


| 
| 
is OUTPUTS: 
| 
| 
| 
| 
| 
| 
| 
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1545 /* 

1 +8 /* ' Ee em me ee eocnre @®o2e mee ee me ot ee San ree eee Pee ese wo we we ewe ww SS we anon noone me oa + } 

1 4 /* ! ' | 

1548 /* i LOCAL STORAGE i 

1549 /* ! ! 

: ey cet \eeee (ee ee me et ce em Se eewreerteaoe = & Be oe & eet weer wr Pen sena em we ew we wre ew ow seers oer ee new OP Be ee ee =e wo = + 
e | 

1 

183 CURR. eCLASS FIXED BINARY(15), /* Consec no (not class no) of current class */ | 

1222 FULL_ PAGES FIXED BINARY(7), /* Number of full pages to display */ 

1556 PARTTAL PAGE _COLS FIXED BINARY(7), /* Number of columns on the partial (last) page */ 

122 COLS_PER_PAGE FIXED BINARY(7) INIT(5); /* Number of columns which fit on a single page */ 

1559 Declare 

1560 LARGE _NO FIXED BINARY(31) GLOBALREF VALUE, /* Very Large number irqreger or floating) */ 

1561 1 BUFFERS BASED (MF S$A_STATSBUF ) /* Statistics buffers */ 

1206 TOT (1:MAXELTS_MFS) FIXED BINARY(31), /* TOTAL statistics buffer */ 

156 MIN (1:MAXELTS_MFS) FIXED BINARY(31), /* MINIMUM statistics buffer */ 

1388 5 MAX (1:MAXELTS_MFS) FIXED BINARY(31); /* MAXIMUM statistics buffer */ 

1566 § pos tere 

1567 PuT FIXED BINARY(31), /* Length of buffer for DISPLAY PUT to put */ 

1568 2 1 "PUT. FLAGS. /* DISPLAY_PUT routine flags 

1569 2 FADL RE UESTED BIT(8) ALIGNED, /* YES => Rlate buffer wit FOL, first */ 

1570 2 Pp “REQU ESTED BIT(8) ALIGNED; /* YES => Really output buffer */ 

1571 2 

1376 2 Declar 

157 DISPLAY _PUT ENTRY(ANY, FIXED BINARY(31), ANY, ANY) /* MACRO-32 rtn to put a display string */ 

1574 OPTIONS (VARIABLE) 

1575 AN ge BR Le BINARY(31)), 

1378 § ADV_HOM_ITEM ENTRY (POINTER); /* MACRO=32 rtn to advance homog class to next displ | 

1578 2 

F444 2 POINTER STATIC; /* CDB for current class */ 

1581 § Declare 

138 § SPTR POINTER GLOBALREF ; /* Pointer to SYI (System Information Area) */ 


Declare 
DCDB 


a 
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1 

1385 UNSPEC(SPTR=>MNR_SYIST_NODENAME) = ‘'0O'B; /* Clear nodename to avoid misleading node in headin 
1587 | /* 

1 y H /* Loop through CSBs (Column Summary Blocks), turning on CSBS$V_IGNORE 

1589 ; /* for each one with CSB$Q_ENDING = 0. These are columns which never 

4590 | /* accumulated any data. If all columns are lonered terminate the 

1591 } /* MONITOR request. Establish new value for MFSSB_COLUMNS which is 

Hs ' , the new column count, excluding ignored columns. 

1594 

1595 J = 0; /* Init count of ignored columns */ 

1596 DO I = 1 TO MFS$B_COLUMNS; /* Loop once for each column */ 

1597 CSBPTR = CSB_POINTER(]); /* Get CSB pointer for this column */ 

1598 IF CSB$Q_ENDING = '0'B /* If no data for this column, */ 

1599 THEN DO; 

1600 4 CSBSV_IGNORE = YES; /* ignore it, */ 

1601 G& JezJe+i; /* eee and count it */ 

1on8 4 END; 

1oRe 3 END; 

1605 MFS$B_COLUMNS = MFSSB_COLUMNS - J; /* Compute new column count */ 

1606 IF MFSS$B_COLUMNS = 0 /* If no columns, */ 

1607 THEN DO; 

1608 CALL MON_ERR(MNR$_NOINPFILES); /* then log the error */ 

1609 ; RETURN(MNRS$_NOINPFILES); /* ... and return with status */ 

ioe END; 

161¢ 3 M->MRBSA_SUMMARY = MFSSA_SUMMARY; /* Get /SUMMARY file spec ptr to MRB for call */ 
161 CALL = SOMMARY_INIT(); /* Do summary file init */ 

1614 2 IF STATUS = NOT_SUCCESSFUL /* Failed? */ 

1616 CALL MON _ERR(MNRS$_DISPERR,CALL); /* Yes == log the error */ 

1617 RETURN(MARS_DISPERR); /* ... and return with status */ 

isis END; 

1620 $ FULL_PAGES = DIVIDE (MFSS$B_COLUMNS,COLS_PER_PAGE,7); /* Compute no. of full report pages of data */ 
1689 3 PARTIAL_PAGE_COLS = MFS$B~COLUMNS - (FOLL_PAGES * COLS_PER_PAGE); /* ... and number of partially filled pages */ 
16 


<z 


F 5 
FSUM_REQUEST 16-SEP- VAX=-11 PL/I  _X2.1-273 Page 23 
04-000 $7855 SEP=- 198 9g: 08: #9 ST EKSUMSHASTER: FRONTOR. SRCIMESUMM.PLTST 3) 
1624 | /* ( 
1625 | /* Summarize each class individually. { 
By et ere : 
4 
% 3 DO CURR_CLASS = 1 TO MFS$W_CLASSCT; /* Loop once for each requested class */ ! 
1e . DCDB = CURR_CDBPTR(CURR_CLASS); /* Get CDB ptr for current class */ 
16 § IF ocbe->CoBsy pone /* If homogeneous class, */ { 
16 THEN MFSSL-ELEMS = Tt ee CDX=>CDX$L_DCOUNT; /* then set this many elements */ 4 
1° ¢ ELSE IF DCOB->cbasv. $15 CLS /* else if SYSTEM class, */ 
16 4 MFSSL_ELEMS = ECOUNT_SYS_ALL; /* then use SYS/ALL element count */ ‘ 
16 7 : DCDB-5CDBSB_ ST = ALL_STAT; /* and force a tabular display */ 
$94 ELSE ares -ELEMS = DCDB->CDBSL_ECOUNT; /* this many elements for other heteros */ 
Hb a} IF ai tS eld HOMOG ' /* If homogeneous class, */ ‘ 
1808 4 DCDB->CDBSA_CDX=>CDX$B_IDISCONSEC = 0; /* Init consec itate item number */ < 
1644 4 dO WHILE (ECDG->CDGSA. CDX=>COX$B_ IDISCONSEC < DCDB->CDBS$A CDX-SCDXSB. 4 
1645 5 CALL ADV_HOM. 1 M(DCBB); - Advance to next display item */ < 
1646 5 CALL = SOMM. ON Ne” CLASS(); * Summarize once for each item */ r 
iy of 2 STATUS = “NOT ~SuCtEsSfUL THEN RETURN (CALL); /* Check call */ 4 
1649 END; 
1650 3 4 
1651 3 ELSE DO; /* Heterogeneous class or PROCESSES */ r 
1686 4 CALL = SUMM _ONE_CLASS(); /* Only need ~, call once */ 4 
165 4 IF STATUS = NOT ~SuctesstuL THEN RETURN (CALL); /* Check call * ¢ 
1654 4 END; { 
1655 3 é 
1656 3 END; ¢ 
1657 2 { 
1658 2 RETURN(NORMAL ) ; /* Return */ r 
1659 2 ( 
< 
4 
‘ 
( 
{ 
4 
( 
{ 
{ 
4 
{ 
{ 
{ 
{ 
( 
4 
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33 
¢ 
s; 


1969 SUMM_ONE_CLASS: Procedure Returns(Fixed Binary(31)); /* Perform m.f. summary output for a single class */ 
1662 | /* 
a 4 
1665 / FUNCTIONAL DESCRIPTION: 
1667 is SUMM_ONE_CLASS 
1967 /* Called by MF SUMMARY _EVENT to put screen images to the 
16 0; /* summary file’ for a single class. 
1671 ; /* 
lore ' in INPUTS: 
167% ¢e None 
; oa 
1976 . OUTPUTS: 
DEE Bh pees 
; e 
1on9 ' i ROUTINE VALUE: 
1o8¢ /* SS$_NORMAL, or failing MONITOR status code. 
1683 ; /* 
1684 | /t-- 
1685 ; 
1689 fe! 
1688 ‘ ; /* | eeewoeeeeeeooresoesoeseeseesoosooeeeeeeooeseooessocoececocoooceoesoesoeecoesececo + 
1689 | /* ! ! 
1690 ; /* ! LOCAL STORAGE ! 
1692 | Se <> |. Saaiteetsertnaielsinenenmiearianieiaieshteliaiaiiuienianianmaneonicipinnaianoneionaiitnnes : 
esi gy 
1695 Declare 
1 PAGES FIXED BINARY(15); /* No. of full pages to display (loop control) */ 
1698 Declare 
1699 START_COL FIXED BINARY(7), /* Starting column number */ 
1700 COLS_T0_DO FIXED BINARY(7), /* Number of columns to display */ 
1701 END COL FIXED BINARY(7), /* Ending column number * 
1708 STAT_IND BIT(1) ALIGNED /* Statistics Indicator -- YES => display statistics 
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} 
| 
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oes Initialize statistics (TOT, MIN, and MAX) buffers. 

DO 1 = 1 TO MFSS$L_ELEMS; /* Loop once per element */ 

TOT(I) = 0; /* Clear total to 0 */ 

MIN(I) = LARGE_NO; /* Set min to Largest number */ 

ot haa = 0; /* Set max to smallest number */ 

MFSSB_DATA_COLS = 0; /* Init no. of columns of data (used by FILL_MFSUM_F | 

/* 

/* Put as many full pages of variable information to summary file as 

/* required by this class. 

/*/ 

START_COL = 1; /* Start with column 1 */ 

DO PAGES = 1 TO FULL_PAGES; /* Loop once for each full page */ 

CALL _= PUT_SUMM_PAGETSTART_COL,COLS_PER_PAGE,END_COL,NO); /* Put a single page for this class */ 

IF STATUS = NOT_SUCCESSFUL” THEN RETORN(CALL); /* Check status */ 

Lay COL = END_COL + 1; /* Establish new starting column for next page */ 

/* 

/* Now put one or, possibly, two partial pages of variable information 

ser to the summary file for this class. 

IF PARTIAL_PAGE_COLS <= 4 /* If no more than 4 columns on partial page, */ 
THEN DO; hen can fit the statistics on same page */ 


° /* eee t e 
CALL = PUT_SUMM_PAGE (START_COL,PARTIAL_PAGE pacmeie y. /* Put a gtngte page for this class * 
® 


[f STATUS = NOT_SUCCESSFUL”- THEN RETURNTCALLJ; eck status * 


ELSE DO; /* ... otherwise, one page for data and one for stat 
CALL _= PUT_SUMM_PAGE(START_COL,PARTIAL_PAGE_COLS,END_COL,NO); /* Put a single page for this class */ 
IF STATUS = NOT_SUCCESSFUL” THEN RETURNTCALL); /* Check status */ 
CALL _= PUT_SUMM_PAGE(START_COL,0,END_COL,YES); /* Put a single page for this class */ 
od STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ 


RE TURN(NORMAL) ; 
END SUMM_ONE_CLASS; 
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PUT_SUMM_PAGE: Procedure (START COL Sas TO_DO,END_COL,STAT_IND) /* Output a single summary page for curr cla 


Returns(Fixed Binary(31)J; 
/* 
{x4 
/* 
oe FUNCTIONAL DESCRIPTION: 
s PUT_SUMM_PAGE 
/* TBS 


}s INPUTS: 

: START_COL <== Column number of Ist column to display. 

* COLS_TO_DO -- Number of columns to display. 

STAT_LIND <== Flag indicating whether or not to display statistics. 


® 
* ON means ‘display statistics’. 
* OFF means "' 


don't display statistics’. 
* OUTPUTS: 

: END_COL =-- Column number of Last column displayed. 

- ROUTINE VALUE: 


* SS$_NORMAL, or failing MONITOR status code. 
ca 
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REQUEST IBesB 4 02:18: VAX-11 PL/I e 
~oEp 1986 98:08:4 DISKSVMSMASTER: XFnont oR. SRC IMF SUMM.PLI; 139 (3h) 
; oa 
; /* ' Ter we Pe BB eswc seer eZee BPs ewe ewe won nes Bwee ae now ae ns = asm ewe ere re emu = Bee ewe ee ee ew wm Se oem a + 
H /* ! ! 
‘ /* ' LOCAL STORAGE } 
: /* ' ! 
; /* ' Se me me me te ee OOH er Oe we ee (ee me ee ee oe oe cn te ee oe err eernecrece (ee eh we ee em a om eS em on eS Se ee en oe ee wm ee (ee a ee me wo ce a + 
: /*/ 
Declare 
START_COL FIXED BINARY(7), /* Starting column number */ 
ENDCOL- , = EEXED. BINARY). ge Ending colugn pubes S20 
. nding column number 
STAT_IND BIT(1) ALIGNED; /* Sroteitics Indicator -- YES => display statistics 


Declar 
DISP. TEMPLATE er (POI 


NTER, BIT(1)_ ALIGNED) /* Rtn to display the summary template */ 
ETURNS (FIXED BINARY(31)) 
FILL_MF SUM_FAOSTK ENTRY( POINTER, FIXED BINARY(7), FIXED BINARY(7), bY ALIGNED) 
ETURNS (FIXED BINARY(31)), /* MACRO-3 rtn to fill the FAOSTK with data */ 
DISPLAY_HOMOG ENTRY (POINTER) /* MACRO=32 rtn to display homog class data */ 
RETURNS (FIXED BINARY(31)); 
Declare 
1 MF_SUMM1_STR str REF, /« # Summary fixed FAO control string */ 
C FIXED BINARY (7), /* Length */ 
Ss CHAR(1); /* First character of string */ 
; Declare 
DATA_STR CHAR(1) BASED(D ere FAOCTR), /* First char of FAO ctr str for eynnery data */ 
; F AOSTK FIXED BINARY(31) LREF; /* First longword of FAOL parm List */ 
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1819 

1820 | /* 

i ; ' ae Fill FAOSTK with data for this page for this class 

1823 

3 4 CALL_= FILL_MFSUM FAOSTK(DCDB,START COL,COLS_TO_DO,STAT_IND); /* Fill FAOSTK with data */ 

18 IF STATUS ="NOT_SOCCESSFUL THEN RETORN(CALL); /* Check status */ 

1 : /* 

is 8: /* Put out template, including utility identification, class name, 

1829 | /* element labels for hetero classes, etc. 

eT bees 

18 § CALL _= DISP_TEMPLATE(DCDB,NO); /* Send tempiete to SCRPKG, but don’t output yet */ 
1387 IF STATUS = NOT_SUCCESSFUL THEN RETURN (CALL); /* Check call */ 

ieee : /* 

1836 ; /* Put out column ney tin ras tudien node name, peg toning and 

ioe ‘ vel ending times, and statistics headings (TOT, AVE, MIN, MAX) if requested. 

1839 | 

1840 } /* 

1841 | /* Start with fixed portions of ‘‘screen." 

1sh§ : /* 

1845 PUT_LEN = MF_SUMM1_STR.L; /* Length of fixed summary control string */ 
1846 FAOL_REQUESTED = YES; /* Run it through FAO. */ 

1847 OUTP_REQUESTED = NO; /* ... but don’t output it yet */ 
1848 CALL~= DISPLAY_PUT(DPUT_FLAGS,PUT_LEN,MF SUMM1_STR.S,); /* Send summary Line to SCRPKG */ 
1849 IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ 

1851 ; * 

1836 H /* Next display node name column headings 

18s 2 

1855 CALL_= MFSUM_HEADINGS(START_COL,COLS_ TO_DO,END_COL,STAT_IND); /* Display column headings */ 

1838 IF STATUS = ROT_SUCCESSFUL THEN RETURN(TALL); /* Check status */ 

1858 | /e 

1859 ; /* Put a screenful of data to summary file 

1300 : /* 

1862 IF DCDB->CDB$V_HOMOG * Check type of standard class */ 
186 THEN DO; /* Homogeneous Standard Class * 
1864 4 CALL = DISPLAY_HOMOG(DCDB); /* Send nenes data display Lines to SCRPKG */ 
1392 ? prs tATUs = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ 

1869 3 ELSE DO; /* Heterogeneous Standard Class */ 
1 4 FAOL_REQUESTED = YES; /* Run it through FAOL */ 

1869 4 OUTP_REQUESTED = YES; /* Suteue it now */ 

1870 4 CALL = DISPLAY_PUT (DPUT_FLAGS ,DCDB->CDBSL_FAOCTR,DATA_STR,FAO TK); 

1871 | 4 /* Send display data to SCRPKG */ 
1376 4 IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); /* Check status */ 

ibm =: 
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RETURN(NORMAL) ; 
END PUT_SUMM_PAGE; 
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MFSUM_HEADINGS: Procedure (START_COL §9b3- TO_DO,END_COL,STAT_IND) /* Output column headings for curr class and page 
Returns(Fixed Binary 


a 
~ 


1881 
1 ¢ : /* 
1 : /*++ 
1 : /* 
: 5 ' : FUNCTIONAL DESCRIPTION: 
is ™® SUM_HEADINGS 
¢ 
1889 H /e Send to SCRPKG a column heading for each of the requested columns 
1 H /* for the current output page an day nt The heading consists of a 
139) ' i. nodename and beginning on ending times. 
1898 | /* INPUTS: 
1894 | /* 
199? ‘ A START_COL <== Column number of ist column to display. 
44 S COLS_TO_DO == Number of columns to display. 
1899 /* STAT_IND == Flag apteeecbag whether or not to display statistics. 
1900 : /* ON means display statistics headings" . 
st H . OFF means ‘‘don't display statistics headings”. 
; & 
1908 H /* OUTPUTS: 
1904 ; /* 
1905 } /* END_COL -- Column number of Last column displayed. 
1906 ; /* 
1907 } /* 
1908 ; /* ROUTINE VALUE: 
1909 ; /* 
ba H c SSS_NORMAL, or failing MONITOR status code. 
; ® 
ba : /t-- 
1913 | /*/ 
1914 
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915 } /* 
37 H /* , : 
18 : /* : LOCAL STORAGE : 
919 } /* 
9 » ; /* ' SBMS SE HBOTBW+s ee aS SEB OE DME EDeE DOO De Qe or eTT eT eoae SRM enmrwDoesranweanaewe nea a emo seaeo aes + 
g ; H /*/ 
9 Declare 
924 MFS_NOD_SEGLEN FIXED {brat GLOBALREF VALUE, /* Length of a segment of node control string */ 
é MFS_TIM_SEGLEN FIXED BINARY(31) GLOBALREF VALUE; /* Length of a segment of time control string */ 
9 Declare 
928 START_COL FIXED BINARY(7), /* Starting column number */ 
929 COLS_TO_DO FIXED BINARY(7), /* Number of columns to display */ 
9 END _C FIXED BINARY(7), /* Ending column number */ 
1 STAT_IND BIT(1) ALIGNED; /* Statistics Indicator -- YES => display statistics 
9 5 Declare 
3 ¢ STHEAD_COL FIXED BINARY(7); /* Starting column no. for stats heading */ 
9 Declare 
+ 4 SCRSSET_CURSOR ENTRY (ANY VALUE, ANY VALUE); /* SCRPKG rtn to set the cursor position */ 
939 Declare 
940 1_MFS_NODE_ PARMS /* FAOL parms for nodenames */ 
302 . RPS -WOBE.P, (1:COLS PER_PAGE) /* Node name parameter */ 
308 ; MFS-FIELB_PARM FIXED BINARY (31), /* ‘Number of files'’ field width */ 
eee MFS_FILES_PARM FIXED BINARY(31); /* "Number of files’ parameter */ 
946 
947 Declare 
948 1 MFS_BEG PARMS, /* FAOL parms for beginning times */ 
30) 2 MFS_BEG_PARM (1:COLS_PER_PAGE) POINTER; /* One parm per column */ 
951 Declare 
336 1 HFS ND_PARMS, /* FAOL parms for ending times */ 
33? 2 MFS_ERD_PARM (1:COLS_PER_PAGE) POINTER; /* One parm per column */ 
955 Declare 
326 1 MFS_NODE_STR GLOBALREF /* M.F. Summary nodename FAO control string */ 
95 : L FIXED BINARY(7), js Length * 
328 Ss CHAR(1); /* First character of string */ 
960 Declare 
961 1 MFS_TIME_STR GLOBALREF /* M.F. Summary beg/end time FAO control string */ 
968 : L FIXED BINARY(7), /* Length */ 
st s CHAR(1); /* First character of string */ 
965 Declare 
41 1 MFS_STHEAD1_STR GLOBALREF, /* M.F. Summary stats head FAO control string (1st) 
96 § L FIXED BINARY(7), /* Length */ 
28 Ss CHAR(1); /* First character of string */ 
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/* MF, puagery stats head FAO control string (2nd) 


/* Length * 
/* First character of string */ 
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197 IF COLS_T0_D0 “= 0 /* If there is some work to do, */ 
1999 i THER 00; 
1978 4 
1979 | 4 /* 
1338 ' 2 Ae Fill parameter Lists for nodename and beginning and ending times. 
198 4 
1988 2 J = 0; /* Clear count of columns actually processed */ 
1985 4 pd I = START COL TO MAX_INP_FILES WHILE(J “= COLS_TO_DO); /* Keep looking at columns until all processed * 
1258 5 END_COL = /* Remember ending column number for caller */ 
198 5 CSBPTR = csé mS sped /* Get next CSB (Column Summary Block) ptr «/ 
1988 5 IF Coesy IGNORE = /* If it is actually to be processed, 
1989 5 THEN DO; 
1990 6 =J+ 1; /* Count this column */ 
1991 6 MFS_NODE PARM(J) = ADDR(CSB$T_NODENAMS); /* Move nodename parm to list */ 
16 6 MFS"FILES PARM(J) = CSBSB_FILES; /* Move ‘number of files’’ oore to list */ 
199 6 CsB$B_FILES <= 1 /* If 1 or no files, */ 
1994 6 THEN MFS_FIELD_PARM(J) = Q: /* then field width = ‘3 (no Gtegtay? */ 
1995 6 ELSE MFS_ FIELD PARM(J) = /* otherwise, field width = 5 * 
19% 6 MFS_BEG_PARMTJ) = ADDR(CSBSQ _BéciNniNG); /* Move beginning time parm to List */ 
bad ? Mrs END_PARM(J) = ADDR(CSB$Q_ENDING); /* Move ending time parm to List */ 
1999 5 END; 
2000 4 
2001 | 4 /* 
sie4 i 4 /* Put out node names. 
i : ? /*/ 
$008 4 PUT_LEN = COLS_TO_DO * MFS_NOD_SEGLEN; /* Compute length of control string */ 
4 FAot REQUESTED” = s wes /* Run it , rey F AOL */ 
007 4 OUTP_REQUESTED = NO; /* bu output it yet */ 
008 4 CALL” = DISPLAY PUT PUT FLAGS ,PUT_LEN,MFS_NODE_STR.S,MFS =NODE _PARMS) : /* Send all nodenames to SCRPKG */ 
st $ IF STATUS = NOT_SUCCESSFUL THEN RETURN(CACL); /® Check status */ 
2011: 4 /* 
soig : 4 /* Put out beginning times 
O14 | sed 
015 4 CALL pg CURSOR(7,20 /* Explicitly set cursor */ 
016 & PUT_L COCS_TO_DO * mrg_ TIM_SEGLEN; /* Compute peneth of control ae «/ 
017 4 FAOCS UREQUE STED = YES; /* Run it 2 arr FAOL */ 
Ht 4 OUTP-REQUESTED = NO; /* bu output it yet 
01 4 CALL™= DISPLAY_PUT (BPUT_FLAGS,PUT_LEN,MFS TIME _STR.S,MFS BEG. *PARNS) ; /* Send all beg shoes to SCRPKG */ 
9 9 4 IF STATUS = ‘NOT. SUCCESSFUL THEN RETURN(CACL); /® Check status */ 
0 ¢ : 6 /* 
023: 4 /* Put out ending times 
8 3 : ? // 
0 $ 4 CALL SCRSSET_CURSOR(8,20); /* Ex plicitly set cursor */ 
0 4 CALL = DISPLAY PUT (DPUT_ FLAGS PUT LEN, MFS_TIME_STR.S, al zEND PARMS); /* Send all end times to SCRPKG */ 
; 4 ® Nofe -- uses most arguments from previous call */ 
0 ? IF STATUS = NOT_SUCCESSFUL THEN RETURN(CALL); - Check status */ 
031 4 END; 
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0 IF STAT_IND = YES /* If statistics headings requested, */ 
bs THER DO; wetliet 

0 4 

0 ; & /* 

, 3 ' 2 Ae Put out statistics column headings for stats (TOT AVE MIN MAX). 

040 4 

041 4 

soe 4 IF COLS_TO_DO = 0 /* If no data columns, */ 

204 4 THEN STHEAD COL = STHEAD_COL + 9; /* then move stats columns to the right */ 
soee 4 CALL SCRSSET CURSOR(7,STHEAD_ COL); /* Explicitly set cursor */ 

045 4 PUT_LEN = MFS_STHEAD1_STR.L; /* Length of stats head egontrol string */ 
sone 4 FAOC. LREOUESTED = YES;~ /* Run it through FAOL * 

047 4 OUTP_REQUESTED = NO; /* but don't output ‘t yet */ 

048 4 CALL™= DISPLAY_PUT(DPUT_FLAGS,PUT LEN,MFS_ STHEAD1_STR.S,); “7* Send ist stats heading Line to SCRPKG */ 
ie 2 IF STATUS = NOT_SUCCESSFUL THEN RET TURN(CACL); /* Check status */ 

051 4 CALL SCRSSET aie oSTHEAD. COL); /* ok yey set cursor */ 

$028 4 PUT_LEN = MF AD2_STR /* Length of stats head control string * 

05 4 CALC = DISPLAY PUT CDPOT FLAGS PUT _LEN,MFS_STHEAD2_STR.S,); “< Send 2nd stats heading Line to SCRPKG */ 
2085 ? IF STATUS = NOT_SUCCESSFUL THEN RETURN( (CACL); 7*’ Check status */ 

056 4 END; 

2057 ; 
2059 RETURN(NORMAL ) ; 

ee 3 END MF SUM_HEADINGS; 
2069 2 END MF_SUMMARY_EVENT; 
206 1 


STHEAD COL = 20 + (19 * COLS_TO_DO) = 1; /* Calculate column number */ 
| 
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oer 98:08:45 TE SKSVMSHASTER EMONTOR.SRCIMFSUMM.PLIo? (38) 
MF_REQ_CLEANUP: Procedure; /* M.F. Summary cleanup procedure */ 
/* 
{ee 
/* 
oe FUNCTIONAL DESCRIPTION: 
. MF _REQ_CLEANUP 
® 
/* Called by MFSUM_REQUEST, either in mainline path, or 
/* from its condition handler, to close files, free 
i. virtual memory and generally release acquired resources. 
/* INPUTS: 
/* 
/* None 
/* 
/* OUTPUTS: 
/* 
/* None 
/* 
Ae ROUTINE VALUE: 
/* None 
/* 
/t-<- 
/*/ 
Declare 
MFS_FREE_MEM ENTRY RETURNS(FIXED BINARY(31)); /* MONITOR MACRO=-32 routine to issue LIBSFREE_VM's * 
IF oe *= 0 /* If CTRL/C and CTRL/Z handlers present, */ 
CALL = SYSS$CANCEL(CTRLCZ_CHAN); /* Get rid of them */ 
Eee Le = 0; /* ... and indicate their disestablishment */ 
IF M->MRBSV_INP_CL_REO /* If cleanup required for an input file, */ 
THEN CACL =" INPUT_CLEANUP(); /* ... then do cleanup for it */ 
IF ee eneey SUC. PES /* If summary cleanup required, */ 
M->MRBSA SUMMARY = MFSSA_SUMMARY; /* Get /SUMMARY file spec ptr to MRB for call */ 
CALL = SOMMARY_CLEANUP(); /* ... and do it */ 
CALL = MFS_FREE_MEM(); /* Free CDBSA_SUMBUF and CDXSA_SELIDTABLE */ 
FREE MFS; /* Free Multi-File Summary Block */ 


RETURN; 
END MF_REQ_CLEANUP; 
END MF SUM_REQUEST; 


<= 


hy Sum REQUEST WE-SEP-1986 OR:18:24  VAKeTT BLL ng etoa7s page 3 
COMMAND LINE 
PLI/LIS=L1IS$:MF SUMM/OBJ=OBJ$:MFSUMM MSRCS$:MFSUMM+LIB$:MONLIB/LIB 
| 
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